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CONNECT FOUR was originally published in the August 1988 issue of Cursor 
newsletter. We do not have Mr. Leake’s current address, and no one has been 
able to locate the Cursor’s publisher since early 1982. We may publish other 

_ programs of quality that have appeared in the Cursor (later called Basic 
Express?) news!etter. 7 


MORSE CODE ADDITIONS: SPEEDS 1 - 3 correspond to 36,24,18,14,12,18,9,8,7 
words per minute. In the CUSTOM mode, 3 characters ara needed to make an 
entry. If your item has only six characters, then add 3 spaces to fill out the 
required Q. The PUNCTUATION selection requires 18 array values, to be added 
by the following input: 

FOR A= @ TO 3; PRINT A,; INPUT #(A); NEXT A 
Then enter the following data pte Fill up that array: 
45,44,63, 45, 40,58,59,34,39,47 





HOLE Hi PAR Y 800 YD. WIND: ¢ 20 HPH 


PLAYER'S SCORES 
PAR=O OVER 


HOLE Ai PAR Y 820 YD. WIWD: ¢ 20 HPH (advT,) 


PLAYER'S SCORES 
PAR=0 OVER 
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CLUB:% HOOD YC 1) BS SS CLUB:$ PUTTER JY¥C2) 


Fairway Screen Dump Green Screen Dumo 


ARCADE GOLF 
By GAMBITS 


FOR 164 & Sex BLUE RAM BASIC 1.1 EXTENDED RAM LINITS, 
£70 4 PLAYERS ! 70 4 HAND CONTROLS 


No BANS-BANS SHOCT-EM-lP Here! Just your choice of 9 or {8 holes of SOLS! 
EACH HOLE IS DIFFERENT — EVERY TIME! 


THERE ARE TREES, SAND TRADS, A LAXE, AND ON ALWAYS CHONGING WIND. 
WITH THE WIND GUSTING LP 7D 25 mh. YOUR BOLL MAY RE BitwN GEE ITI¢ fripee 
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CONNECT FOUR oro 
BY ROBERT LEAKE 

The object of this game is to get 4 — After you’re done with that, type in 
of your playing pieces in a row without any the array exactly as you see it at the end 
of your opponent’s pieces in between, of the listing. EXAMPLE, TYPE! @(77)=1200 
vertically, horizontally or diagonally, GO and so on until you have typed in all 
before the computer or your human opponent eight of the array entries listed. You are 
does. Pieces drop vertically in the selected completely finished! Save the program on 
column to the lowest unoccupied position. To tape with the ‘PRINT command. If you’ve 
select a column, move the joystick left or done it right, you are going to enjoy a 
right and pull trigger when indicator is really great game of Connect Four. 
over desired column. Joystick 1 always goes 
first. 
IMPORTANT!!! 

The Connect Four Data String must be LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
input BEFORE you input the main body of the = SPACES. 1627 CHARACTERS 
program. Follow the following instructions 
very carefully before you do anything else 8 goto 14 
or this great program will not run. a 9 box 0743875152 

10 box -49412xC,43,9elylsreturn 

DATA DIRECTIONS: Vi MBZ(-24225414éKE+2%C0) preturn 

Without a line number type the 12 U=Q47;F=RMsif F=0F=7 
following command (all spaces are for 13° box ~49412xF »-Bt(Q-1)47x9, 11,8, 35 return 
clarity only and need not be typed)? 14 clear sinput *__1_OR_2_PLAYERS? "PF 
CLEAR$ NT=1$ %(20000) = -24061$ FOR A = 15 BC=10;FC=183;for A=ito 76;@(A)=O;next Asc 
-24576 TO -24068 STEP 23 PRINT #6, lear sbox ~-1,14y87,S5é,1;3for Q=lto 42;gosub 12 
"Y("A,*)=*53INPUT ° © %(A)$ NEXT A pnext Q3C=1;gosub 10;T=-15N=469;CY=-32 

After you press GO the screen will 16 J=(T+3)42 
clear and you’ll see the number "%(-24574)=" 17) DaCt+IX( J) sif C#lif Dx(8-D)C=Dsgosub 9 
printed on the screen. Now look on CONNECT 18 if (TR(J)#1)+(B(C)=6)goto 17 
FOUR DATA STRING chart and find that number 19 gosub 37;T=-Tsif P#igoto 16 
(top of left column) and type the number to 20 L=-9999;for C=ito 7sgosub 9Fif @(C)=dgoto 
the right of the equal sign (in this case 36 
the number 1). Press GO and the next number 21 E=@(C)sgosub 11;W=0;for A=Mtito AtA(M)#25 
will come up on the screen. IMPORTANT!!! 6 B=2%(A)4256-24 5 5=@(B) 


Ench time you type in o number proofread it 


22 W=Wt@(80+S) snext Asif We=@(83)K=C;C=7; got 
to make sure you typed 1c correctly before G 3c ' 


Q 
23 if @(C)=Sgoto 35 


you press GO. Ke specially careful of the a , a 
negative numbers on the lower portion of the 24 if Wo@(77)goto 35 
4th column and upper part of the Sth column. 25 E=Eti;gosub 11;G=0;H=1;for A=Mtito AtZ(M) 
Those minus signs must be included in the #2565 BEZ(A) 4256-245 S=@( 8) 
negative numbers, If you make a mistake 26 if S=-36=1 
start from the beginning. 27 if Se-2WaW~2x@(78) +3 

When you have input the last number 28 if S=2W=W-@(82)+43 
you must do one more thing before you type 29 if S=3H=0;W=-3333 
the main part of the program. Type this 30 next Asif G_W=-6666;goto 35 
command, again, without a line number? 31 if H+(@(C)=4) goto 35 
%(A) = 138 ZCAtL) = -256$ %CAEH2) = 2553 32 E=Etisgosub 11;1=0;for A=Mtito AtZ(M)4256 
Z(At3) = 81928 Z(At4) = 0 9 B=Z%(A) 4256-2453 S=@(B) 

When you press GO your job of 33 (if S=3I=1 : 
inputting data is done! If you were to give 34 next Arif I_K=CsC=7;goto 36 
the LIST command you would see a listing of 35 if WeL_L=WsK=C 
lines 1 through 7 that looks like garbage. 36 next CsC=Ksgosub 37;T=-1sgoto 17 
That’s alright. Data always looks like 37 E=@(C)sgosub 11,@(C)=@(C) 413 X=-4941 2x03 Y= 
garbage to humans! It’s the computer we’re ~1749x@(C)¢gosub Pybox XeVyPrdylsbox XeVySy2y 
trying to please now, right? Before you (7+T) 425 MU=84 
start typing in the rest of the program we 38 for A=Mtito AtZ(M) 42563 B=Z(A) $256-24; S=@¢ 
recommend that you take a fresh cassette B);if S=4goto 46 
tape and save this program with the ‘PRINT 39 if SxT<O@(B)=4$N=N-13goto 46 
command. Then, later, if you have a power 40 S=StT;@(B)=Syif S#4xTgoto 46 
failure, you won’t lose all your hard work Al Ra1L§Z=4(-241 4448) $256-315if BOSIR=6 


42 if E>43R=7 

43 if B>é64Rk=8 

44 N=O;for Q=Zto Zt3xRstep Rsgosub 123;gosub 
13;N=N-1;5MU=874Njnext Qjsif TR(J) run 


typing in the data. Now don’t reset your 
computer, Lines 1 through 7 are already in 
there in. the form of data. Continue from 
there by typing in lines & through 49 from 


the program listing. x a Atif Nreturn 
ti ces ~ 
@Q ARRAYS:- @(79)=@ B(BD) also a? print’? > GAME_IS_A_IIRAW 
48 if TR(J) run 
@(80)=1 @(83)=8000 49 goto 48 


@(77)=1200 
@(81)=12 @(84)=0 
@(78)=100 
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CONNECT—FOUR 

~24576= 1 -24474= 
~24574= 17198 ~24472= 
~24572= 20047 ~24470= 
-24570= 17742 ~24468= 
-24568= 21571 ~24466= 
~24566= 17952 -24444= 
~24564= 21839 ~24462= 
~24562= 3410 ~24440= 
~24560= 2 ~24458= 
~24558= 558 ~24456= 
~24556= 17440 ~24454= 
-24554= 860 ~24452= 
~24552= 8480 ~24450= 
~24550= 24391 ~24448= 
-24548= 8196 ~24446= 
~245}46= 8737 ~24444= 
~24544= 25162 ~24442= 
~24542= 8198 -24440= 
~24540= 8737 ~24438= 
~24538= 14371 ~24436= 
~24536= 25677 ~24434= 
-24534= 8452 ~24432= 
-24532= 8994 ~24430= 
~24530= 20537 ~24429= 
-24528= 8707 ~24426= 
-24526= 15139 ~24424= 
-24524= 595 ~24422= 
~24522= 15907 ~24420= 
~24520= 854 -24419= 
~24518= 17444 ~24416= 
~24516= 23109 ~24414= 
—24514= 9221 ~24412= 
~24512= 18213 ~24410= 
-24510= 23624 -24408= 
~24508= 1885 ~24406= 
~24506= 9508 ~24404= 
~24504= 14374 ~24402= 
-24502= 19274 ~24400= 
~24500= 24671 -24398= 
-24498= 9225 ~24396= 
-24496= 9765 ~24394= 


 AsAAOAaw 


4 Ai“ 4 


FA VO 


DATA STRING 


21311 
852 
164679 
22358 
10244 
17732 
22854 
781 
11776 
10247 
14377 
18503 
235113 
2651 
10536 
14634 
19002 
19331 
23900 
3166 
10536 
11050 
15419 


4n07 
i9773 


20302 
24671 

2657 
10793 
15915 
16447 
20816 
25170 

1891 
11050 
16961 
21587 
25685 
11012 
22083 
22615 


11268 


TIAL A 


~24372= 
~24370= 
-24368= 
~24366= 
-24364= 
-24362= 
-24360= 
-24358= 
~24356= 
~24354= 
~24352= 
~24350= 
-24348= 
~24346= 
~24344= 
~24342= 
-24340= 
-24338= 
~24336= 
~24334= 
~24332= 
~24330= 
~24328= 
~24326= 
~24324= 
-24322= 
-24320= 
-24318= 
~24316= 
~24314= 
-24312= 
-24310= 
-24308= 
-24306= 
-24304= 
~24302= 
-24300= 
~24298= 
~24296= 
~24294= 
-24292= 
 FAMOR— 


19274 
231164 
3419 
4 
3118 
11564 
12078 
16190 
19776 
20302 
23900 
2654 
11921 
16687 
20546 
21073 
24671 
1889 
12078 
21315 
21844 
25442 
12036 
22358 
25688 
12291 
17722 
1350 
12592 
15476 
18760 
12295 
12849 
16447 
19531 
2393 
12592 
13106 
16961 
20302 
23386 
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~24270= 614 
-242468= 15668 
~24266= 
~24264= 5 
-24262= 814 
~242460= 13620 
~24258= 18752 
~24256= 13314 
~24254= 13877 
~24252= 19522 
~24250= 13318 
~24248= 13877 
-24246= 17207 
-24244= 22863 
~24242= 13572 
~24240= 14134 
~24238= 23378 
~24236= 13827 
-242934= 21815 
-24232= 606 
-24230= 22583 
-24228= 3425 
-24226= é 


24994: 44352 
ee ~ 


“24222= 3792 


~24220= 
~24218= 
-24214= 106564 
~24214= 12192 
~24212= 13472 
-24210= 14496 
-24208= 15776 
~24206= 17568 
-24204= 19872 
-24202= 22488 
~24200= 24992 
-24198= 24784 
-24196= 28064 
-24194= 30624 
~24192=-32608 
-24190=-29536 
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THIS SERIES OF ARTICLES IS TO ALND SOME 
KNOWLEDGE TO REATIERS THAT MAY BE IN THE 
[ARK ABOUT SOME OF THE BASIC NO-NO’S OF 
PROGRAMING! 
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ONE THING I HAVE NOTICED LATELY IS THAT 


A LOT OF PEOPLE ARE USING SEMICOLONS (3) 
IN THE MIDDLE OF THEIR ‘IF’ STATEMENTS, 
LIKE THIS.o. 


100 IF A=B;GOTO 100 


THIS IS NOT ONLY POOR PROGRAMMING, BUT IT 
MIGHT NOT WORK SOMETIMES, ALTHOUGH I HAVE 
YET TO FINI A CIRCUMSTANCE TO PROVE ME RIGHT 
OR WRONG. ACTUALLY, THE PURPOSE OF A SEMI- 
COLON IS TO TELL THE BASIC CARTRIDGE THAT 
IT HAS REACHED THE END OF A COMMANI! OR A 
STATEMENT. THIS IS GENERALLY USED WHEN THERE 
ARE TWO OR MORE TOTALLY SEPERATE COMMANIIS 
IN THE SAME LINE, LIKE THIS... 


100 A=ABS(Q);IF A>SSGOTO 200 


NOTICE THAT I DID NOT USE A SEMICOLON IN MY 
‘IF’ STATEMENT. IF I HAL, I WOULD HAVE JUST 
KEEN USING UP ONE BYTE OF PRECIOUS MEMORY 
SPACE FOR NOTHING! 


ANOTHER QUESTION HAS REEN ASKED OF ME. 
THIS ONE IS "WHAT IS THE DIFFERENCE BETWEEN 
THE CHEUIS ROUTING AND Tit STRDIG ROUTINE, 
WHICH HAVE KOTH BEEN. USEI TO FUT MACHINE 
LANGUAGE GRAPHICS INTO SOME ASTROBASIC 
PROGRAMS? * ; 

THE MAIN [IIFFERENCE IS THAT THE CHRINIS 
(CHARACTER I[NISFLAY) ROUTINE IS GENERALLY 
USED TO DISPLAY ONLY ONE CHARACTER AT A TIME 
WHETHER IT BE AN ‘ASCII’ CHARACTER, OR A 
USER DEFINED CHARACTER. WHEREAS THE STRINIS 
(STRING DISPLAY) ROUTINE IS GENERALLY USED 
TO [TNISPLAY A STRING OF CHARACTERS, ONE RIGHT 
AFTER THE OTHER UNTIL A 00 (NOP) IS REACHET! 

BOTH OF THESE ROUTINES ARE A PART OF THE 
ON-BOARD ROM AND CAN ONLY BE USED IF THE 
ASSOCIATED ROUTINE USEI! TO ’CALL UF’ THESE 
ARE WRITTEN IN MACHINE LANGUAGE. 


ONE OTHER THING YOU SHOULD TRY TO DO 
WITH YOUR PROGRAMS, UNLESS YOU ARE USING A 
MACHINE LANGUAGE PART IN YOUR PROGRAM, IS TO 
FUT AS MANY COMMANIIS ON THE SAME LINE AS IS 
FOSSIBLE. THIS NOT ONLY SAVES MEMORY SPACE 
(A SEMICOLON TAKES UP ONE BYTE ANI A ‘GO’ 
TAKES UP ONE BUT A LINE NUMBER TAKES UF TWO 
PRECIOUS BYTES), IT ALSO ADDS SPEED! 

EACH TIME YOU USE A SEMICOLON INSTEAD OF 
A NEW LINE YOU SAVE TWO RYTES! E CAREFUL, 
THOUGH, AS THERE ARE A COUPLE OF TIMES THAT 
YOU CAN’T Tt0, LIKE THIS: 

1) AFTER USING A ’GOTO ’ IN A LINE WILL 
MAKE THE REST OF THE LINE ‘NULL AND VOID’, 
OR FUT ANOTHER WAY, IT WILL NEVER 
GET TO WHAT IS FOLLOWING THAT STATEMENT! 

2)WHEN YOU USE AN ’IF’ STATEMENT AND THE 
ADDED STATEMENTS AFTER IT LO NOT FERTAIN TO 
THE ‘IF’ STATEMENT! THESE WILL ONLY BE [IONE 
WHEN THE ’IF’ IS TRUE. WHEN THE IF IS FALSE, 
THE BASIC WILL GO ON TO THE NEXT LINE IN THE 
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FROGRAM ANI! FORGET ABOUT THE REST OF THE 
INFORMATION IN THE LINE! 


ONE LAST LITTLE TID-BIT. 

DON’T EVER SAY ...+ GOSUB SS$RETURN 

IOING THIS TAKES UP TWO EXTRA BYTES AS 
COMPAREI TO ..+. GOTO 55 
THIS WILL DO THE SAME JOK AND ACTUALLY [!0 IT 
FASTER! 

LET’S SEE WHAT IS GOING ON HERE. EVERY 
TIME YOU SAY GOSUR THE PLACE THAT YOU ARE 
CURRENTLY MUST RE SAVEI! BY THE COMPUTER SO 
THAT IT KNOWS WHERE 70 GO TO WHEN IT HITS 
THE ‘RETURN ’ LOCATED AT THE END OF THE 
SUBROUTINE. LET’S LOOK AT THIS SAMFLE.. 


100 A=ABS(Q) sRETURN 

110 B=ABS(P);GOSUB 100;RETURN 
120 GOSUB 110;RETURN 

300 C=[1;GOSUR 120 


LET’S START AT LINE 300.THIS IS THE 
ORDER OF EVENTS. FIRST C IS SET TO THE 
NUMBER IN I}. THEN THE BASIC SEES THE GOSUR 
COMMANI', LOOKS AT WHERE IT HAS TO GO, (IN 
THIS CASE TO LINE 120) ANID THEN IT °PUSHES', 
OR SAVES IT’S PLACE AFTER THAT COMMANI SO 
THAT IT CAN EXECUTE THE NEXT STATEMENT WHEN 
IT HITS THE RETURN THAT WILL SEND IT BACK TO 
THIS SFOT. SO ACTUALLY, EVERY TIME THAT YOU 
USE A GOSUR, THE PLACE IS SAVED. IT GETS 
REMOVED WHEN THE RETURN FOR THAT FOINT IS 
MET. NOW TT MUST START FROM THE VERY BESIN- 
NING OF THE FROGRAM ANI! ‘LOOK’ FOR LINE #120 
WHEN TI FINDS IT, IT THEN SEES THE GOSUER 110 
AND THEN TI SAVES THAT POINT AGAIN! IN LINE 
110 THERE IS A GOSUB 100. THIS ALSO SAVES 
THE PLACE. FINALLY WHEN IT GETS TO THE ENT 
OF LINE 100 IT REACHES THE FIRST RETURN. 
NOW IT HAS TO LOOK AT THE STACK OF FLACES 
THAT IT HAS SAVEI! AND THEN GO TO THE LAST 
FLACE THAT WAS FUT INTO THIS STACK, WHICH 
WAS IN LINE 110, WHERE IT THEN ENCOUNTERS 
RETURN. IT NOW LOOKS AT THE ADLIRESS 
THAT IS NOW ON THE TOF OF THE STACK (IT 
THREW QUT THE OLI! FLACE!). THIS THEN SENIIS 
THE PROGRAM TO LINE 120 FOR A FINAL RETURN 
AND THEN THE LAST PLACE IS THEN TAKEN FROM 
THE STACK! WHEW! THAT IS AN AWFUL LOT OF 
WORK! LET’S SEE HOW WE CAN REDUCE SOME OF 
THIS WORK. 


100 A=ABS(Q) sRETURN 
110 B=ABS(F);GOTO 100 
300 C=LI;GOSUR 110 


YOU’LL NOTICE THAT THERE IS NO LONGER A LINE 
120. THIS LINE WAS REDUNDANT. NOW THERE IS 
ONLY ONE TIME THAT THE BASIC HAS TO SAVE 
IT’S PLACE. THE GOTO HOWEVER HAS TO [10 THE 
SAME THING THAT THE GOSUR HAS TO 10 TO FIND 
IT’S PROPER LINE. THAT IS, START FROM THE 
VERY BEGINNING OF THE FROGRAM ANI! SEARCH 
UNTIL IT FINDS THE LINE! THIS CAN STILL BE 
REWRITTEN TO KE FASTER IF YOUR PROGRAM WILL 
FERMIT THIS CONFIGURATION. 


100 B=ARS(F) 
110 A=ABRS(Q);RETURN 
300 C=I1;GOSUK 100 


CONTINUGS ON ?. £3 
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—__GETTING QRGANIZED 
BY ARTHUR HALE 


IN| TODAYS WORLD OF THE EVER FAST 
GROWING HIGH TECHNOLOGY, THE USE OF PA- 
PER IN ORDER TO KEEP PROPER RECORDS IS 
BECOMING A THING OF THE PAST. IM THIS 
SHORT ARTICLE I HOPE TO POSSIBLY GIVE 
SOMEONE OUT THERE A GOOD WAY TO STILL 
USE PAPER TO THEIR ADVANTAGE. 

DO YOU HAVE TAPES (FOR THE ARCADE) 
SCATTERED ALL QVER THE HOUSE FOR THE 
LACK OF PROPER SPACE TO STORE THER A- 
ROUND THE COMPUTER? MAYBE YOU'RE ONE 
OF THE GUYS (OR GALS) THAT USE 90- 
MIN. TAPES TQ STORE ABOUT 100 PROGRAMS 
ON ONE SIDE. THERE'S WOTHING WRONG 
WITH THAT IF YOU CAN FIND THE PROGRAK 
WITH EASE. A FILE SEARCH IS FINE TO 
USE FOR A FER PROGRAMS, BUT IF YOU HAVE 
20 OR MORE ON THE SAME TAPE, YOU MAY 
ALSO HAVE A LONG HAIT. THIS IS WHAT HE 
USE PAPER FOR/ 

LET HME -START BY SAYING IF YOUR 
TAPE RECORDER DOES WOT HAVE A DIGITAL 
TAFE COUNTER ON IT, YOU SHOULD PURCHASE 
ONE AS YOU SOON SHALL SEE. NOW LET'S 
GET TOIT: 

MY FIRST SUGGESTION TO YOU WOULD 
BE TO USE THE LONGER TAPES, MAYBE NOT 
THE 9O-HIN. JOBS, BUT ONE LONG EXOUGH 
TO STORE A GOOD NUMBER OF PROGRAMS ON 
ONE SIDE, SECONDLY, PLACE EACH PROGRAH 
THE SAME DISTANCE APART (I START MY 
FIRST PROGRAK AT 10 ON THE TAPE COUNTER 
AND PLACE HY SECOND AT 20, THIRD AT JO, 
ECT...) FOR EASE IN LOCATING EACH PRO- 
GRAK, NEXT, HAVE ONE TAPE FOR EACH 
SPECIFIC CATEGORY (EX. ARCADE GAMES, 
EDUCATIONAL, ENTERTAINMENT, UTILITIES, 
ECT age? « YOU HILL HAVE TO START A EN- 
TERTAINMENT II, ECT., OF COURSE HHEN 
THE NEED ARRIVES, 
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SUPPOSE J] 
HOSES'’S 
TQ DO 
GAMES 


WANTED TO PLAY GEORGE 
“ASTRO-ZAP", ALL I WOULD HAVE 
TS LOOK ON MY LIST OF THE ARCADE 
TO FIND THE LOCATION OF THE FIRST 
OF THE PROGRAK. THERE WOULD ALSO BE A 
SHORT SET OF INSTRUCTIONS FOR THE 
GAME. I PLACE HY TAPE (ARCADE GAMES) 
IN THE RECORDER, MAKING SURE IT IS RE- 
HOUHD TO THE START OF THE TAPE, I THEN 
RESET THE COUNTER. IF THE GAME IS THE 
STH GAME ON THE TAPE, I FAST FORMARD IT 
UNTIL THE COUNTER READS 79, OR SOHE- 
THING RIGHT BEFORE 980, I THEN DO My 
INPUT THING (zINPUTsRUN GO) AND I'M ON 
MY WAY. 
EXTEHDED BASIC PEOPLE CAM USE THIS 
WITH EVERYTHING, I USE IT FOR woRD 
PROCESSING, CHECK BOOK REGISTER, HOME 
FILING OF ALL KINDS, AS HELL AS THE 
THINGS LISTED ABOVE, ALTHOUGH A LONGER 
PROGRAH HAY CHANGE THE SPACING SQHE- 
WHAT, IT USE MY PROCESSOR TO PRINT OUT 
AY iiS7 AND NOTES. THIS WAY I ONLY 
HAVE TO UPDATE IT EVER $0 OFTEN, NOT 
HAVING TO REDO THE WHOLE THING. 
IT HOPE SOMEONE CAN USE THIS INFOR- 
MATION TO THEIR ADVANTAGE. WOH GO GET 
ORGANIZED// LATER, . 


ARTHUR HALE 

2719 WASHINGTON AVE. 
SAITHT ALBANS WH. VA. 25177 
(JO4) 722-6440 


IN THIS WAY, THE BASIC ONLY HAS TO SEEK OUT 
ONE FLACE! 
LINE 110 THEN JST Tyree rw 


IF YOU ONLY WANT THE EQUATION IN 
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STRATEGIC ATR COMMANT 
BY BOB WERER & GEORGE MOSES 







LOWERCASE = 1-BYTE KEYPALI! WORDS. UNDERSCORES 
= SPACES, 1612 CHARACTERS 







1 LNT =-1 5E=90003F=10005H=20003 1=70003 JES 
000 ;L=3000;0=80003F=4000 

_.10_clear ;BC=rnd (256) ;FC=BC+435 
W=60;gosub 10000;clear ;gosub F;Q= 






R= 
A= 


=4;5 
30; 






b H;V=A 

_15_CY=40;print "FOPULATION=_"°,;#1,A,y",000 
_20_R=O0;W=W-203if AZ99CY=-253print "YOU_LOSE 
!*sgoto I 





__30_print "YOU_HAVE_",#1,Q,"_MISSILES* sprint 






Oo Hsnext Z 
_3o_if S=0if V-B<100CY=-253print *YOU_WIN"3$g 
oto I 

40_if S=O0CY=-25;print *YOU_LOSE!*;goto I 
_-J0_box 09109160,67,23print *kXRKK*X_ENEMY_AT 
TACK _¥XKKKK" 5 &(16)=495 8(17)=2433 3(18)=2443 811 
9)=24558(21)=15 

~.60_&(22)=25558(23)=103for Z=lto Hjnext Z$bo 
% 0910,160,67,23gosub L3Y=W3for Z=ito Sibox @ 
(Z)9¥oly3y3snext Z 

95 _Y=Y¥~158(16)=Y¥+74;for Z=1to Sif @(Z)=0go 
to 100 

_.70_if PX(@(Z),Y-1)NT=0;gosub 0 

_.80_if PX(@(Z),Y)=0@(Z)=0;goto 100 

_70_box @(Z)sY¥-lylylylsbox @(Z)sY¥t2e1y1,2 
_100_next Z5if Y<-38gosub Psgoto 140 

~110_if TR(L)if R=O0if Q>0Q=Q-5;R=1;gosub P$N= 
~30;for M=6to 10;box @(M)yNyly3ye3enext M 
_120_if R=lgosub J 
_130_goto 65 


TROBASIC 


A 
SOFTWARE ON 
CASSETTE TAPES 


1. Morse Code Trainer with 
Morse Code T-a true 
trainer with programmable 
levels, speed, screen mode 
and Learn/test mode. 
Includes Lesson plan. 


2. Astro- Analyst with 

emomMIX-ad sym bol in- 
terpretat ion ogra 
Gives an individual person- 
ality profile . Memomax- 
a memory gamc. 



























3. Rhythm Bex in 4/4 and ¥4- 
3 part harmony. Keeps the 
beat. 7 styles, 3 speeds. 
Remote contro! start / 
Stop - fade and vibrato 

on /off. Includes. chord 
charts and foot switch/ 
wave (tone) shaper 


schematics. 
\ + 


Qivet 2 rabrrs 












ARCADIHN= 


"ENEMY_HAS_*,#1,Sx5,"_MISSILES*;B=Asfor Z=1t 

















PROJECT - CYCLOPS 
RADAR BASE 


You steer the radar- launched 
missile into the eye of the 
cyclops. LF 
hel charge and fire at your 
base. (A° PRP I.- Plan Position 
Dnudication radar display 


simulation.) 
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- _140_A=O3gosub Hyif B-A=OCY=0$print "NO_LOSSE 
*"ygoto 1460 
~150_CY=O;print #1,B-A,y",000_ KILLED 
_160_S=S-1;goto 15 
1000 _box 0,-42,160,3,1¢for G=-80to 79step 3$b 
Ox Gy-38,rnd (5),3trnd (6),1$for N=1to 2 
1010_box Gy-32-rnd (9)y1,rnd (2),2}next Ninex 
t Gsreturn 
2000_gosub Esbox 0,5,160,75,23CY=40$print "CO 
UNTING_POFULATION 
2010_for Y=-37to -34$for X=-80to 79$if FX(X,Y 
A=At1 
2020_MU=Asnext Xsnext Ysif A>B_A=E 
2030_NT=-¥3 return 
3000_for Z=ito 5° 
3010_A=rnd (150)-75;for C=lto Sif (@(C)=A)+( 
_ A=0) goto 3010 
3020_next C3@(Z)=Afnext Zireturn 
4000_for Z=éto 10 
4010_A=rnd (150)-753for C=éto 10$if @(C)=Agot 
e 4010 
4020 _next C3@(Z)=Ajnext Zireturn 
SOOO_N=Ntisfor M=éto 103if FX(@(M)»N)=Ogoto 5 
030 
SOOS_if JX(1)box @(M) yN-1)1)3,3$@(M)=@(M) 4X ( 
1);box @(M)»N-1,1,3,3 
S010_box @(M)yNtlylelyl$box @(M)yN-2ylyly2 
S020_if N®=Y8(21)=25538(16)=1$box @(M) pNyFpPy 
Lsbox B(M)»Ny999,23 for D=lto 500snext D38(16) 
=Y¥+74 
J030_if N>Y+1R=0 
5040 _next M§&(21)=15$ return 
7000_CY=40;print "“ORIGINAL_POP, = *°,#1,V,",00 
0 
*y#1,V-Ay",000"$p 
AGAIN’ if KFr 


— ae oe 


un 






Order by mail: (check ap M.0.) 


Any listed program $822 
Buy tuo and take a third 
Tape absolutely FREE 


Enclosed is 
Please send the following: 








__1- Morse Code Trainer § I 
— 2- Astro- Analyst & Memomax 
— 3-Rhythm Box 

—_4-Froject Cyclops Radar Base 


7 | rc arr a 






ADDRESS ¢ 








QTY -STATE 


ZIP. 
Address all orders To: 


FRED RODNEY 
1190 Albany Avenue 
Brooklyn, N.Y. 11203 


OU MISS him, 
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Vol @ Ned 
ok 
LOWERCASE = 1-BYTE KEYPAD WORDS. UNDERSCORES 
= SFACES. 757 CHARACTERS 


10 clear pela tiie, Nias "SSBC 
E PEOPLES<< 

20 A=-723 cys 3O;CX=Asprint "R°;CY=2 
nt "O"3CY=14;CX=Asprint "N°’;sCY=6;CX 
A’ 

30 CY=-2;CX=Asprint "N*;CY=-10;CX=Asprint °Z 
"SCY=-133CX=-65;print “A*sCY=20;CX=Ssprint °G 
AS*3CX=23print "WELL" 

40 line -62),-7,4$;line -62,30,1;line -42,30,1 
$line -40,;29,1sline -39,28,lsline -39,26,i31i 
ne —36,27y,1sline -33,26 51 

50 line -29,28,ljline -24,28,lsline -19,32,1 
fline -10,35,13;line -10,12,1l3line -11,4,13lin 


" 
= 


CX=Aspri 
; 


; 
Asprint ° 


e -13,-2,1sline -17,-Srisline -19,-4;ls;line - 


23,-9y1 


1-BYTE KEYPAD WORDS. UNDERSCORES 
1604 CHARACTERS 


LOWERCASE = 
= SFACES. 


+103305050x1x10000 

goto 40 

CY=-24;CX=-60; return 

CX=-60;CY=40; return 

if TR(F)gosub 8;return 

goto 5 

gosub 4;print 0, CAPITALS gAP e's 
)#100,RM410,RM,°_ “ys return 

box Oy- 315160,38, 2} rcturn 
9 W=O(F) ;Q=@(P+4) sW=W+C41000;Q=Q+RM 5 if Q<0R= 
10004+Q; W=W-1 
10 if Q>999W=W+Q41000;Q=RM 
11) @(F)=W;@(P+4)=Q;gosub 7;return 
120 PaFtis;if P2N_P=1 
13. goto 50 
14 NT=12;for A=-24573to -24556;MU=Z(A) snext 
ASNT=O; return 

15 for L=Lto 35step 2sbox KyLy2e2y3snext Lf 
or A=ito 9sbox KtAygLylyly3sbox K-AyLylyly3sL= 
L-A#2;next A;sreturn 

16 box Ky-20,2,19,13gosub B8yreturn 

17) S=rnd (53)-63;T=rnd (54)-19; return 

18 box XyVe2,2y353 return 

40 gosub 4;N=KN(1)475+3;print *PLAYERS?_*,#0 
yN3if TR(1)=Ogoto 40 

42 gosub 8 

50 gosub 43print "COMPANY_#°,F,"__"sgosub 3 
52 B=1sgosub 7;C=Fx1l0sfor A=Ctito Ct@(C)sgos 
ub 3sprint "WELL_NO>",B;if @(A)=Ogoto 58 

54 if rnd (10)=5@(A)=O;print °__RAN_IIRY’sqot 
o 38 

56 CX=Ofprint #0,@(A)4100,° CUFT/IIAY’ sCX=05p 


",@(F+ 
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60 line -23,-11;1l;line -25,-12,13line -25,-1 
Oslyline -28,-13,1l;line -27,-15,;lsline -29,-1 
6ylsline -32,-18,i;line -37,-15,1l;line -3é6,-1 
4y1 

70 line -39,-14,13;line -40,-15,l;line -43,-1 
Sylsyline -47,-15,1l;line -57,-13,l3line -56,-1 
Orslsline -59,-9,1sline -62,-7,1 

80 line 35,-10,4sline 47,31,1;line 51,311,131 
ine 66,-10;1ls;line 38,-l1,l;line S8,11,1l;line 4 
p20, 1; line Soe2O0zisline 44,11,1l;line 62y-1)1 
yline 35,-10,1 

90 box 50 y-14,35,8,1sbox 49,32,5ys2,13box SO, 
2Qlylly2ylsboxn SOplS,A7p2ylsbox 3BO,O,25,2,15CY 
=-40 


38 gosub S;R=B+ljnext AsX=-40sY= OFif B(P)<10 
CY=-30;print "__BANKRUFT*$goto U 

60. if @(F)>999gosub Bsgosub 3sNT=Osprint "GA 
S_WELL_ BONANZA" sgosub 14;goto 50 

62 gosub 183X=X+JX(P)x2;Y=Y+JSY(P)x2$if TRIP) 
goto 4646 

64 gosub 18}3goto 62 

66 E=rnd (99)x2003F=rnd (29)+83G=rnd (89) $H= 
tnd (12)x800;I=rnd (30)x9803if rnd (3)=2gosub 


68 gosub 3$print "GELOGICAL _STUDY_$°,#0,E 

70 if TR(P)C=-Esqosub 9$aota 74 

72 if JX(F)goto 80 

74 goto 70 

76 gosub S3sprint "ODDS OF_GAS_STRIKE_",#0,G, 
"%__*sif ABS(X-S)<10if ABS(Y-T)<10G= G+10 

78 sari ? co 1S « DONS 9 #0; Fiprint *__DEFT 
HOF. RES._ #0, H," Pal "y3gosub 5 

80 gosub “B$print "PROPERTY _RIGHTS_$",#0,1 

82 if TR(F)C=-Isgosub 9iyoto 88 

84 if JX(F)goto U 

86 goto 82 

88 J=0;K=50$L=-93gosub B$box Ky-31,35) 26,1 
90 M=(100-G)410;R=rnd (MxM) NT=55MU=Z (8151) 5 
NT=O3boOx KyLy2,2,230=L$L=L-23if JX(P)gosub 16 
ygoto U 

72 J=J+3003C=-Fx3003 gosub qrgasub Syprint ‘LD 
RILLING_AT?*$print "__",#0,J,"_FT"$if J>H+200 
Oprint *__DRYHOLE', $gosub 16;goto U 

94 if J>H-2000if M=Rgosub 153L=O;gosub 143g0 
sub 153gosub 14;goto 98 

94 goto 90 

98 C=Px10;D=rnd (275)x100$F=rnd (50)$for A=C 
tito CH@(C)$if @(A)=0@(A)=DtFjgoto V 
100) next AS@(C)=@(C) 413 @(@(C)#C)= D+F 


4A eee a ee ae ae ae a ee oe 











ASTROEADE 


Now! 





Get your favorite Astrocade Cartridge for the lowest prices 
ever! Prices: normally $24.95 to 34.95 now $4.95 each. 
Sale running to September 15, 1984. 


Choose from the Following Titles: 


2001 Bao as per Dedeen 
2002 Seawolf/miseile 

20035 Red Baron/Panzer Attack 
2004 Brickyard/Clowns 

2005 Star Battle 

2009 Astro Battle 

2010 Dogpatcn 

2012 Space Fortress 

S001 Baseball 

3002 Football 

S005 Bally Pin 

4004 Biorhythm 

5002 Black jack/Poker 


We also are sorry to announce tnat tne cartridges from 
Ksoterica Ltd. ,Treasure Cove and BlastDrééds are no 
longer available. 


By the way, we still have in stock some of tne newest 
games for tne Astrocade, sucn as Cosmic Raiders, Solar 
Conqueror, Muncher, Ms. Candyman, Sea Devil, and Sneaky 


Snake. This. group are not on sale, 


Rembemper, Sale running to Septemper 15 for all of the 
above cartridges--$4.95 each also please include $1.50 
for shipping. Quantity is limited so buy now, Sale 
limited to existing stock. Once we are out--it is over 


48C Hobbycraft 
2155 kk. Morgan 
Evansville IN 47711 
(812) 477-9661 
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1-BYTE KEYPAD WORDS, UNDERSCORES 
1462 CHARACTERS 


LOWERCASE = 
= SPACES. 


_ACME__BATTERY_ 
# OF _FLAY 


1 NT=-Osclear ;CY=O;print "__ 
DRIVING ee TEST";input ° 
ER‘S?_ (1-4) "Y;if Ye4goto 1 





Jul LU MUSF 


wo =CY=—S3O;CX=-22; print "_TIME:",#2,C 


26 bax AyHy3,3,5 


7 if ASB-3if ACB+Sif Be9-3if B9+3_ B=S5jF= 


goto 150 


8 if Ar44-2if Ac44¢2if B 


SJ=lfgoto 150 


3 





e-2-2if BX-2+2_A=40 


> clear }T=0ffor X=ito YIS=SOO;D=0fFC=125;RC 59 if AZ67-2if A67+2if Br0-2if BLO+2_A=703H 
=40 =l;goto 150 

3 A=-SOPRE4OPD=0 60 if AD>44-Bif AL4442if B13-Bif BL13+2_A=40 
4 E=O$F=2}G=2$H=2$1=2$J=2;K=2}L=2}mM=2jN=2s0= r1=ligoto 150 

Opa Dt Qadt had 61 aif At44-21f At4442if B>25-2if BL25+2 _AR40 


10 box ~1,0,151,88;1$box 070,148,86,2sbox 0, FG=ligoto 150 
O,138,73y13 tho ~305¢ Oey B2,2tbox 40, 07578252 . 62 if A>36-2if ALSS6t2if BeO-2if BLO+2_A=405K 


11 box 0,5,138,5,2$box 0,-8,138,5,2box 0,-2 =1rgoto 150 

2,138,5)2 ici 63 Gf API6—2if ACBSHBIF Bo-4-2if B<-442_A=40 

12 box ~50,37,B,4;E$box 8y10,4,4,Fsbox 45,25 *l=ligoto 150° 

14y4,G$box 67,074,4;H3box 45,13,4,4,1fbox 45, O4 if Ae-4u-2if Ac-a5tliP Bo~ 

—254y4,S$bOx 3690y3,3yK Pe ee aah 5 Like a dae, et es vi 

13 box 36,-4,3,3,L$bOx -48y-3024,4yMibox 45, OF TF Aeaa-2if Asaat2if Bo-30-2if Be-30+2_As 

30) 4,4,N$box -38,-3774,4,0$box —52,-17,4,4,F 40;N=légoto 150 os eden ae 

shox -34,-14y4,4,Q3b0x —60y-13, 4,892 66 IF Ae-3B-2if AS~SOt2if Bo-38-2if Bé-3B+2_ 

24 box -64y-15y4,49R - R=-41;0=1$goto 150 

25 box ~44 5-30 55,205 23 box AyBs3y393 &?7 if Ar-52-2if A<-52+2if Be-18-2i1Ff B<~18+2 

Se eautien Woe hos A Aeneas H=-21;P=1;goto 150 

27 CY=18$CX=-22jprint *_STOPS#",#2,1 Ek lglg a Ae er 

28 if D=133for A=ito 2000jnext Afclear ;CY=0 08 if Ab-S4-21F AX-34¢2iPf Bo-d4-2if Be-14t2_ 

Tht, VERY_GOOD* for A=ito 2000jnex “=-S0sH=ligoto 150 ease | : 

b AST=THigote 300 69 if Ab-64-2iF AC-6442iF BO-15-2if B¢-1542_ 

35 CY=30}CX=-223print "_IRIVER"y#2,Xx A=-603R=1igoto 150 

36 if IGOgoto 50 70 if CeO}CY=-15sCX=-25}print *_GAME_OVER'$n 
72 next C 


30-2if BY-30t2_ 





30 box AyBy dy 393 ” 

Si A=A+JIX(X)x100¢50 ee L=Ditisgoto 11 

2 BSB+JY(X)x100450 Ay STOP 

53 Z=O¢NT=O{NT=-1}for V=l7to 22}8(V)=200jnex “90 if T=1_S=400sFC=165;RC=1460;goto 3 

t V$8(16) 8255 201 aif T=2_S=3003FC=120;RC=140;goto 3 
ah amis 202 if T=3 S=275$FC=180$RC=120tqoto 2 

54 if FX(A,R)-OfA=-5O}R=40 7 q 3 

‘ ; ile 203 gato 3 


Henry Sopko 

27@5 King Street East #1108 
Hamilton, ON Canada 

LSK 1Y4 


ACME DRIVING TEST requires you to drive your car along the road, keeping away 
from the curb. You must enter each stop by lining up with it, then pushing 

right direction. The camputer will put you back on the 
onward. Each new screan (change in color} cuts the time 
it more and more difficult to complete the test. 


the joystick in the 
ready to go 
making 


road, 
factor downward, 
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ADS 


WANTED --Tapes (3) by Todd Johnson of Spokane. 


Woodward Ave., Cavelends Of 441 15 Contact George Krec, 1932 


VACATION COMING UP in September, and we wil} drop one issue as a resu!t. We 
Will make up for it in October, with a double-sizea job, at least. October will 
also be the last issue of the fiscal year - eaveruone’s subscription startad 
with the November 1993 issue, regardless of when they actually subscribed. 


GAME PLAYER COLUMN is not included thi i i ; 
1 + - i 
would. ber later. s time Mike indicated to me thet it 
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